home *** CD-ROM | disk | FTP | other *** search
/ Workbench Designer 2 / Workbench Designer 2.iso / pointer / animpoint / arexx / loaded.rexx next >
Encoding:
OS/2 REXX Batch file  |  1994-01-01  |  684 b   |  29 lines
  1. /* this script queries for the currently loaded brush */
  2.  
  3. /* -- if an AnimPoint is not running, complain ---------------------------- */
  4.  
  5.    if pos('ANIMPOINT', (show(ports))) = 0 then do
  6.       say "AnimPoint server not running."
  7.       exit 5
  8.    end
  9.  
  10. /* -- see if there is an animation loaded --------------------------------- */
  11.  
  12.    options results
  13.    address ANIMPOINT
  14.  
  15.    get loaded;    loaded    = result
  16.    get animfile;  animfile  = result
  17.    get colors;    colors    = result
  18.  
  19.    if loaded = 0 then
  20.       say "No anim pointer is currently loaded."
  21.    else do
  22.       say "An anim pointer is loaded."
  23.       say "  Name   = "||animfile
  24.       say "  Colors = "||colors
  25.    end
  26.  
  27.  
  28.    
  29.